home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / src / !runtime / stacks.h < prev    next >
Encoding:
C/C++ Source or Header  |  1997-08-18  |  486 b   |  28 lines  |  [TEXT/R*ch]
  1. /* structure of the stacks */
  2.  
  3. #ifndef _stacks_
  4. #define _stacks_
  5.  
  6.  
  7. #include "misc.h"
  8. #include "mlvalues.h"
  9. #include "memory.h"
  10.  
  11. extern value * stack_low;
  12. extern value * stack_high;
  13. extern value * stack_threshold;
  14. extern value * extern_sp;
  15. extern value * trapsp;
  16.  
  17. extern value global_data;
  18.  
  19. #define Trap_pc(tp) (((code_t *)(tp))[0])
  20. #define Trap_link(tp) (((value **)(tp))[1])
  21.  
  22. void reset_roots P((void));
  23. void init_stack P((void));
  24. void realloc_stack P((void));
  25.  
  26.  
  27. #endif /* _stacks_ */
  28.